﻿Class MainWindow

    Private Sub evaluateCharacter_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles evaluateCharacter.Click
        Dim charCrawl As New characterCrawler
        charCrawl.CrawlCharacter(characterToEvaluate.Text, New characterCrawler.charactersFoundCallback(AddressOf evaluatedCharacterFound))

    End Sub

    Private Sub evaluatedCharacterFound(ByVal characters As List(Of characterData))
        MsgBox(characters.ToArray()(0).Name)
    End Sub
End Class
